home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 2).iso / 1073 / killbdss.sx_ / killbdss.sx
Text File  |  1997-04-16  |  911b  |  54 lines
  1. /////////////////////////////////
  2. // KILL MUNGER Main Monster
  3. ////////////
  4.  
  5. message "Execute KILLMAIN"
  6. return
  7.  
  8. initialize: bitmaps
  9.     s = new sprite
  10.     l = bitmaps get 0
  11.     b = l get 0
  12.     u,v = b.dim[1]/2,b.dim[0]/2
  13.     ox,oy = 0,0
  14.     x,y = 0,0
  15.     r = 0
  16.     f = 0
  17.     g = 0
  18.  
  19. update_pos: x,y
  20.     call draw_frame
  21.     if x - ox > 0 then r = 1
  22.     else if x - ox < 0 then r = 0
  23.     if f > 0 then f = 0
  24.     ox,oy = x,y
  25.  
  26. shoot:
  27.     f = 1 + g
  28.     call draw_frame
  29.     if r == 0 && g == 0
  30.         g = 1
  31.         return x-u+10, y-v+60, -16, 8
  32.     else if r == 0 && g == 1
  33.         g = 0
  34.         return x-u+55, y-v+60, -16, 8
  35.     else if r == 1 && g == 0
  36.         g = 1
  37.         return x-u+90, y-v+60, 16, 8
  38.     else if r == 1 && g == 1
  39.         g = 0
  40.         return x-u+45, y-v+60, 16, 8
  41.  
  42. draw_frame:
  43.     l = bitmaps get r
  44.     b = l get f
  45.     sprite s bitmap b trans 0,255,0 at x-u,y-v depth y
  46.  
  47. get_pos:
  48.     return x,y
  49.  
  50. ///////////////////////////////////
  51. ////////////////////////////
  52.  
  53.  
  54.